﻿Imports System.Runtime.Serialization

Public Class AuftragFailedException
    Inherits System.Exception
    Implements ISerializable

    Public Sub New()
        MyBase.New()
        ' Add implementation.
    End Sub

    Public Sub New(ByVal message As String)
        MyBase.New()
        mes = message
    End Sub

    Public Sub New(ByVal message As String, ByVal inner As Exception)
        MyBase.New()
        mes = message
        inex = inner
    End Sub

    ' This constructor is needed for serialization.
    Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
        MyBase.New()
        ' Add implementation.
    End Sub

    Public Overloads Property Message As String
        Get
            Return mes
        End Get
        Set(value As String)
            mes = value
        End Set
    End Property

    Public Overloads Property InnerException As Exception
        Get
            Return inex
        End Get
        Set(value As Exception)
            inex = value
        End Set
    End Property

    Private inex As Exception
    Private mes As String
End Class
